home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / emula / arosdv19.lha / AROS / graphics / setoutlinepen.c < prev    next >
C/C++ Source or Header  |  1996-10-31  |  1KB  |  62 lines
  1. /*
  2.     (C) 1995 AROS - The Amiga Replacement OS
  3.     $Id: setoutlinepen.c,v 1.3 1996/10/31 11:13:09 aros Exp $     $Log
  4.  
  5.     Desc: Graphics function SetOutlinePen()
  6.     Lang: english
  7. */
  8. #include "graphics_intern.h"
  9. #include <graphics/rastport.h>
  10.  
  11. /*****************************************************************************
  12.  
  13.     NAME */
  14.     #include <graphics/rastport.h>
  15.     #include <clib/graphics_protos.h>
  16.  
  17.     AROS_LH2(ULONG, SetOutlinePen,
  18.  
  19. /*  SYNOPSIS */
  20.     AROS_LHA(struct RastPort *, rp, A0),
  21.     AROS_LHA(ULONG,             pen, D0),
  22.  
  23. /*  LOCATION */
  24.     struct GfxBase *, GfxBase, 163, Graphics)
  25.  
  26. /*  FUNCTION
  27.  
  28.     INPUTS
  29.  
  30.     RESULT
  31.  
  32.     NOTES
  33.  
  34.     EXAMPLE
  35.  
  36.     BUGS
  37.  
  38.     SEE ALSO
  39.  
  40.     INTERNALS
  41.  
  42.     HISTORY
  43.     29-10-95    digulla automatically created from
  44.                 graphics_lib.fd and clib/graphics_protos.h
  45.  
  46. *****************************************************************************/
  47. {
  48.     AROS_LIBFUNC_INIT
  49.     AROS_LIBBASE_EXT_DECL(struct GfxBase *,GfxBase)
  50.     ULONG oldPen;
  51.  
  52.     oldPen = rp->AOlPen;
  53.  
  54.     driver_SetOutlinePen (rp, pen, GfxBase);
  55.  
  56.     rp->AOlPen = pen;
  57.     rp->Flags |= AREAOUTLINE;
  58.  
  59.     return oldPen;
  60.     AROS_LIBFUNC_EXIT
  61. } /* SetOutlinePen */
  62.